home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 3 / Info_Mac_1994-01.iso / Development / Source / Speech Unit Source / USpeaker.p < prev   
Encoding:
Text File  |  1993-09-02  |  1.4 KB  |  53 lines  |  [TEXT/MPS ]
  1. {    Change the word "Speaker" to the name of your object class throughout. }
  2. UNIT USpeaker;
  3.  
  4. INTERFACE
  5.  
  6. USES
  7.     {    Macintosh Toolbox units }
  8.     Types, QuickDraw, ToolUtils, ObjIntf, Events, Dialogs, Menus, Printing, Packages,
  9.     GestaltEqu,Speech,Memory,
  10.     
  11.     {    Course library utility units }
  12.     Utils, UList, 
  13.     
  14.     {    Application framework units }
  15.     UGlobals, UApplication, UGenericWindow, UWindow, UAlert, UDialog, UTracker,
  16.     UStream, UFile, UDrawingObject, UPrintable, UObjectWindow,
  17.     
  18.     ULab6Common,
  19.     
  20.     {    Additional units of the course library }
  21.     UAnimationObject, UAnimator, UAnimationScheduler, UStartStopAnimator, 
  22.     UXORObject, URectangular, UBox, UOval, UIcon, UText
  23.     
  24.     {    Add any additional units here, including those of your own program }
  25.     
  26.     ;
  27.  
  28. TYPE
  29.  
  30. {    Change "TSpeaker" to the name of your class. }
  31. {    Change "TSlideObject" to the name of the correct SlideObject. }
  32.     TSpeaker = OBJECT (TObject)
  33.     {private:    }
  34.         fChannel:SpeechChannel;
  35.         
  36.         PROCEDURE TSpeaker.WaitTilSpeechDone;
  37.     {protected:    }
  38.         {none}
  39.     { public: }
  40.         FUNCTION TSpeaker.GetChannel:SpeechChannel;
  41.         PROCEDURE TSpeaker.SetChannel(tc:SpeechChannel);
  42.         PROCEDURE TSpeaker.ISpeaker(NumberOfVoice: Integer);
  43.         PROCEDURE TSpeaker.Free;OVERRIDE;
  44.         PROCEDURE TSpeaker.SpeakStr( ToSayString: Str255);
  45.         PROCEDURE TSpeaker.SpeakTxt(theTextHdl:Handle);
  46.     END;
  47.  
  48. IMPLEMENTATION
  49.  
  50. {    Change "TSpeaker" to the name of your class. }
  51. {$I USpeaker.inc1.p}
  52.  
  53. END.